VBA（函数）文本中截取指定开始字符指定长度字符串

2024-07-11 12:58| 来源: 网络整理| 查看: 265

Function CutR(str As String, endStr As String, getLen As Integer) As String 'CutR函数 '截取文本中指定开始字符，指定长度的字符串，如截取编号等 'str: 文本 'endStr: 目标字符串 , 或者编号的标识符 'getLen: 要截取的长度 '返回值: 指定长度的字符 Dim e As Integer e = InStr(str, endStr) + Len(endStr) If e < 0 Then CutR = "" Else CutR = Mid(str, e, getLen) End If End Function

'测试得到36个字符长度的 45706EC7-5B31-48FD-A75D-00005A08C27D

Sub test() Dim str As String str = CutR("sadlaskdajdkajkGuidNo:45706EC7-5B31-48FD-A75D-00005A08C27D********", "GuidNo:", 36) Debug.Print str Debug.Print Len(str) End Sub

【本文地址】

公司简介

联系我们

VBA（函数） 文本中截取指定开始字符指定长度字符串

VBA（函数）文本中截取指定开始字符指定长度字符串